home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / emacs16d.zip / DIRED.MIN < prev    next >
Encoding:
Text File  |  1992-06-19  |  8.4 KB  |  383 lines
  1.  
  2.  
  3. Name:Dfilename
  4. [*]dired[*]
  5.  
  6.  
  7. Name:D!Dired-mode
  8. [*]#(Fexit-mode)
  9. #(Flocal-bind-key,K.q,D:dired-quit)
  10. #(Flocal-bind-key,K.1,D:dired-one)
  11. #(Flocal-bind-key,K.2,D:dired-two)
  12. #(Flocal-bind-key,K.C-n,D:dired-next)
  13. #(Flocal-bind-key,K.n,D:dired-next)
  14. #(Flocal-bind-key,K. ,D:dired-next)
  15. #(Flocal-bind-key,K.Down Arrow,D:dired-next)
  16. #(Flocal-bind-key,K.C-p,D:dired-previous)
  17. #(Flocal-bind-key,K.Up Arrow,D:dired-previous)
  18. #(Flocal-bind-key,K.p,D:dired-previous)
  19. #(Flocal-bind-key,K.d,D:dired-delete)
  20. #(Flocal-bind-key,K.C-d,D:dired-delete)
  21. #(Flocal-bind-key,K.u,D:dired-remove)
  22. #(Flocal-bind-key,K.C-h,D:dired-remove-previous)
  23. #(Flocal-bind-key,K.x,D:dired-execute)
  24. #(Flocal-bind-key,K.f,D:dired-find)
  25. #(Flocal-bind-key,K.v,D:dired-view)
  26. #(Flocal-bind-key,K.r,D:dired-rename)
  27. #(Flocal-bind-key,K.c,D:dired-copy)
  28. #(Flocal-bind-key,K.?,D:dired-help)
  29. #(Fmv,Fself-insert,F!self-insert)
  30. #(Fmv,Dinsert,Fself-insert)
  31. #(ds,local-mode-changes,##(local-mode-changes)(
  32.     #(Fmv,Fself-insert,Dinsert)
  33.     #(Fmv,F!self-insert,Fself-insert)
  34. ))
  35. #(Fset-modename,Dired)
  36. [*]
  37.  
  38.  
  39. Name:D-dired-listing-switches
  40. Must contain at least -1.
  41. [*]-1l[*]
  42.  
  43.  
  44. Name:D:Dired-mode
  45. [*]
  46. #(Fexit-mode)
  47. #(Flocal-bind-key,K.q,D:dired-quit)
  48. #(Flocal-bind-key,K.1,D:dired-one)
  49. #(Flocal-bind-key,K.2,D:dired-two)
  50. #(Flocal-bind-key,K.C-n,D:dired-next)
  51. #(Flocal-bind-key,K.n,D:dired-next)
  52. #(Flocal-bind-key,K. ,D:dired-next)
  53. #(Flocal-bind-key,K.Down Arrow,D:dired-next)
  54. #(Flocal-bind-key,K.C-p,D:dired-previous)
  55. #(Flocal-bind-key,K.Up Arrow,D:dired-previous)
  56. #(Flocal-bind-key,K.p,D:dired-previous)
  57. #(Flocal-bind-key,K.d,D:dired-delete)
  58. #(Flocal-bind-key,K.C-d,D:dired-delete)
  59. #(Flocal-bind-key,K.u,D:dired-remove)
  60. #(Flocal-bind-key,K.C-h,D:dired-remove-previous)
  61. #(Flocal-bind-key,K.x,D:dired-execute)
  62. #(Flocal-bind-key,K.f,D:dired-find)
  63. #(Flocal-bind-key,K.v,D:dired-view)
  64. #(Flocal-bind-key,K.r,D:dired-rename)
  65. #(Flocal-bind-key,K.c,D:dired-copy)
  66. #(Flocal-bind-key,K.?,D:dired-help)
  67. #(Fmv,Fself-insert,F!self-insert)
  68. #(Fmv,Dinsert,Fself-insert)
  69. #(ds,local-mode-changes,##(local-mode-changes)(
  70.     #(Fmv,Fself-insert,Dinsert)
  71.     #(Fmv,F!self-insert,Fself-insert)
  72. ))
  73. #(Fset-modename,Dired)
  74. [*]
  75.  
  76.  
  77. Name:D:dired
  78. A Major Mode for file manipulation.  Supports editing, renaming,
  79. copying and deletion of files in an arbitrary drive:directory.
  80. [*]#(ds,value,#(Fonly-path,#(Fbuffer-fn)))
  81. #(Freadline,dired: ,(
  82.     #(Ddired,#(value))
  83. ))[*]
  84.  
  85.  
  86. Name:D:dired-copy
  87. Copies the selected file to a specified directory/file
  88. [*]#(ds,value,#(Ddired-filename))
  89. #(Freadline,Copy to: ,(
  90.     #(ex,#(env.COMSPEC),#(env.SWITCHAR)C copy #(Ddired-filename) ##(value),,nul,nul)
  91. ),a)[*]
  92.  
  93.  
  94. Name:D:dired-delete
  95. Marks the specified file for deletion (but does not delete it.)
  96. [*]#(Ddired-filename,(
  97.     #(sp,^)
  98.     #(dm,>)
  99.     #(is,D)
  100.     #(D:dired-next)
  101. ))[*]
  102.  
  103.  
  104. Name:D:dired-execute
  105. Physically deletes all files marked for deletion from the disk and
  106. updates the DIRED Buffer.
  107. [*]#(pm,1)
  108. #(an,Processing...)
  109. #(ds,temp)
  110. #(sp,[)
  111. #(Ddired-execute-do,(
  112.     #(ds,temp,##(temp)#(Ddired-filename,,,L)(,))
  113. ))
  114. #(Dmore,##(temp))
  115. #(Fyes-or-no,Delete these files?,(
  116.     #(sp,[)
  117.     #(Ddired-execute-do,(
  118.         #(ds,temp,#(de,#(Ddired-filename)))
  119.         #(==,##(temp),,(
  120.             #(sp,^)
  121.             #(dm,$)
  122.             #(dm,>)
  123.         ),(
  124.             #(Fmessage,Trouble deleting #(Ddired-filename,,,L): ##(temp))
  125.         ))
  126.     ))
  127.     #(sv,mb,0)
  128. ))
  129. #(es,dired-list)
  130. #(pm)
  131. [*]
  132.  
  133.  
  134. Name:D:dired-find
  135. Replaces the DIRED buffer with the selected file
  136. [*]#(Ddired-filename,(
  137.     #(F:find-file,ARG1)
  138.     arg1
  139. ))[*]
  140.  
  141.  
  142. Name:D:dired-help
  143. Invokes a single page quick reference for DIRED.
  144. [*]#(ow,
  145. (This is a major mode for editing a list of files. Each line describes 
  146. one of the files in a DRIVE:DIRECTORY. Letters do not insert themselves; 
  147. instead, they are commands which operate on the file of interest.  
  148.  
  149. 1 ------- Select that file in full-screen window.
  150. 2 ------- Select that file in other window, leave DIRED menu in this window.
  151. d or k -- Mark that file for deletion, and move down.
  152. f ------- Select that file in place of the DIRED menu buffer.
  153. n or C-n  Go to next line in DIRED menu.
  154. p or C-p  Go to previous line in DIRED menu.
  155. q ------- Select that file and kill the DIRED menu buffer
  156. u ------- Remove all kinds of marks from current line.
  157. x ------- Delete files marked K
  158. v ------- Stay in DIRED menu, but put that file in other window for viewing
  159. C-d ----- Mark that file to be deleted, and move up.
  160. BACKSPACE Back up a line and remove marks.
  161.  
  162. Use "M-x revert-dired" to revert a DIRED buffer.
  163.  
  164. ))
  165. #(an,(Commands: 1 2 d f n p q u v x     -or-      ? for help.))
  166. #(Fhit-any-key)
  167. [*]
  168.  
  169.  
  170. Name:D:dired-next
  171. Goes to next line in DIRED Buffer.  Down Arrow also works.
  172. [*]#(F:next-line)
  173. #(Ddired-move-to-filename)
  174. [*]
  175.  
  176.  
  177. Name:D:dired-one
  178. Places the selected file in a full-screen window for editing.
  179. [*]#(D:dired-find,(#(F:one-window)))[*]
  180.  
  181.  
  182. Name:D:dired-other-window
  183. [*]#(F:two-windows)
  184. #(D:dired)[*]
  185.  
  186.  
  187. Name:D:dired-previous
  188. Goes to previous line in DIRED Buffer.  Up arrow also works.
  189. [*]#(F:previous-line)
  190. #(Ddired-move-to-filename)
  191. [*]
  192.  
  193.  
  194. Name:D:dired-quit
  195. Places the selected file in a buffer for editing and kills the DIRED
  196. Buffer. 
  197. [*]#(F:find-file,#(Ddired-filename)#(Fkill-buffer))[*]
  198.  
  199.  
  200. Name:D:dired-remove
  201. Unmarks a DIRED line marked for deletion and goes to next line.
  202. [*]#(sp,^)
  203. #(Flooking-at,D ,(
  204.     #(sp,^)
  205.     #(dm,>)
  206.     #(is, )
  207. ))
  208. #(D:dired-next)
  209. [*]
  210.  
  211.  
  212. Name:D:dired-remove-previous
  213. [*]#(lp,^D ,,r)
  214. #(l?,^,[,,0,(
  215.     #(sp,0)
  216.     #(lp,^D ,,r)
  217.     #(l?,^,$,,,(
  218.         #(sp,^)
  219.         #(dm,>)
  220.         #(is, )
  221.         #(sp,0)
  222.     ))
  223. ),(#(bl)))
  224. #(pm)
  225. [*]
  226.  
  227.  
  228. Name:D:dired-rename
  229. Renames the selected file.
  230. [*]#(Ddired-filename,(
  231.     #(ds,value,ARG1)
  232.     #(Freadline,Rename to: ,(
  233.         #(rn,#(Ddired-filename),
  234.             #(Fbuffer-fn)##(value))
  235.         #(mp,value,,\,/,:)
  236.         #(ds,value,#(Fonly-last,#(value,(,),(,),(,))))
  237.         #(Ddired-move-to-filename)
  238.         #(dm,$)
  239.         #(is,##(si,Fxlat-upper,##(value)))
  240.     ),a)
  241. ))
  242. [*]
  243.  
  244.  
  245. Name:D:dired-two
  246. Places the selected file in a second window for editing.
  247. [*]#(Ddired-filename,(
  248.     #(F:find-file,ARG1#(Ddired-two-do))
  249. ))[*]
  250.  
  251.  
  252. Name:D:dired-view
  253. Places the selected file in a second window for viewing.
  254. Leaves the user in the DIRED Buffer.
  255. [*]#(Ddired-filename,(
  256.     #(Ffind-file-other-window-do,ARG1#(Ddired-two-do))
  257.     #(rd,1)
  258.     #(F:other-window)
  259. ))[*]
  260.  
  261.  
  262. Name:D:revert-dired
  263. Refreshes the DIRED buffer with the current directory contents.
  264. [*]
  265. #(sp,[)
  266. #(dm,])
  267. #(an,Reading directory #(Fbuffer-fn)...)
  268. #(Fmultiple,Dget-files,##(sa,#(ff,#(Fbuffer-fn)*.*,(,))),SELF)
  269. #(an,Reading directory #(Fbuffer-fn)...done)
  270. #(sp,[)
  271. #(D:dired-next)
  272. #(Fremember-buffer)
  273. #(sv,mb,0)
  274. [*]
  275.  
  276. Name:Dget-files
  277. [*]#(is,  ##(ct,#(Fbuffer-fn)arg1,y))
  278. #(Fpad-to-column,45)#(is,arg1)
  279. #(Fcrlf)[*]
  280.  
  281. Name:Ddired
  282. complete-filename
  283. Returns the complete filename for the line that the cursor is on.
  284. [*]
  285. #(Fremember-buffer)
  286. #(Ffind-buffer,,arg1,(
  287.     #(an,arg1 is already loaded)
  288. ),(
  289.     #(Ffind-unused-buffer,arg1)
  290.     #(D:revert-dired)
  291.     #(Fremember-buffer)
  292.     #(D:Dired-mode)
  293. ))
  294. [*]
  295.  
  296.  
  297. Name:Ddired-execute-do
  298. Handles doing something on every marked line.  Execute arg1 with an
  299. argument of the filename.
  300. [*]#(Ddired-filename,(
  301.     #(sp,^)
  302.     #(==,##(rm,>),D,(
  303.         #(==,arg1,,(
  304.             #(sp,$>)
  305.             #(==,##(rm,>),,,(
  306.                 #(SELF,(arg1))
  307.             ))
  308.         ))
  309.     ),(
  310.         #(sp,$>)
  311.         #(==,##(rm,>),,,(
  312.             #(SELF,(arg1))
  313.         ))
  314.     ))
  315. ))[*]
  316.  
  317.  
  318. Name:Ddired-filename
  319. Extracts the filename.ext from the current line.  If arg1 is empty,
  320. then simply return the filename.  Otherwise run arg1 if there
  321. is a filename on the line (with the filename as an argument).
  322. Otherwise if arg2 is nonempty, run it. Otherwise Fring-the-bell.  If
  323. arg3 is nonempty, use the local form of the name.
  324. [*]#(Ddired-move-to-filename)
  325. #(Fr,##(==,(arg1),,ARG1,(arg1)),#(==,arg3,,(#(Fbuffer-fn)))##(rm,$))
  326. [*]
  327.  
  328.  
  329. Name:Ddired-move-to-filename
  330. [*]#(sv,cs,45)[*]
  331.  
  332.  
  333. Name:Ddired-two-do
  334. [*]
  335. #(==,##(lv,ow),0,(
  336.     #(F:two-windows)
  337. ),(
  338.     #(..,#(ba,##(lv,ow)))
  339.     #(Fenter-local-modes)
  340.     #(==,##(lv,cw),1,(#(sv,cw,2)),(#(sv,cw,1)))
  341. ))
  342. [*]
  343.  
  344.  
  345. Name:Dmore
  346. Same as Fmore, but doesn't run Fhit-any-key.
  347. [*]
  348. #(ds,line,1)
  349. #(==,#(Fmultiple,Fmore-do,##(temp,(,)),SELF),q,(
  350.     #(rd)
  351. ),(
  352.     #(ow, ==========   Files to be acted on are listed above   ==========)
  353. ))
  354. [*]
  355.  
  356.  
  357. Name:F!D:buffer-menu
  358. [*][*]
  359.  
  360.  
  361. Name:F!D:dired
  362. [*][*]
  363.  
  364.  
  365. Name:F:Dired-mode
  366. This will set the local mode to Dired.  The code is contained in the
  367. D library.
  368. [*]#(D!Dired-mode)[*]
  369.  
  370.  
  371. Name:Fautoload-D
  372. [*]dired[*]
  373.  
  374.  
  375. Name:K.C-x d
  376. [*]D:dired[*]
  377.  
  378.  
  379. Name:K.C-x 4 d
  380. [*]D:dired-other-window[*]
  381.  
  382.  
  383.